home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / BEAGLE.BAG.SHK / BEAGLE.BAG / BABY NAMES.bas next >
BASIC Source File  |  2000-01-01  |  1KB  |  17 lines
  1. 10  REM <CTRL-M><CTRL-M>BABY NAMES<CTRL-M>BY BERT KERSEY<CTRL-M>BEAGLE BROS<CTRL-M><CTRL-M>
  2. 20  TEXT : HOME : NORMAL : ONERR  GOTO 63900
  3. 40 V$ = "AEIOU":C$ = "BCDFGHJKLMNPQRSTVWXYZ"
  4. 50  PRINT "100 NAMES FOR BABY:"
  5. 60  FOR I = 1 TO 40: PRINT "-";: NEXT 
  6. 70  FOR KID = 1 TO 99
  7. 80 A =  INT( RND(1) *21) +1:B =  INT( RND(1) *5) +1:C =  INT( RND(1) *21) +1:D =  INT( RND(1) *5) +1:E =  INT( RND(1) *21) +1
  8. 90  PRINT  MID$ (C$,A,1); MID$ (V$,B,1); MID$ (C$,C,1); MID$ (C$,C,1);
  9. 93  IF  INT( RND(1) *2) = 0  THEN  PRINT "Y   ";: GOTO 100
  10. 94  PRINT  MID$ (V$,D,1); MID$ (C$,E,1);"Y ";
  11. 100  NEXT KID: PRINT "GEORGE": FOR I = 1 TO 40: PRINT "-";: NEXT 
  12. 110  FOR I = 1 TO 2000: NEXT : VTAB 24: HTAB 1: PRINT "ANY KEY:";: GET A$: PRINT A$;: HTAB 1: CALL  -958
  13. 63900  NORMAL : PRINT : HTAB 5: PRINT "BEAGLE BAG": HTAB 5: PRINT "------------------"
  14. 63910  PRINT "<M> MENU": PRINT "<C> SEE MORE NAMES": PRINT "<Q> QUIT": HTAB 5: PRINT "------------------": PRINT "    SELECT:";: GET A$: PRINT A$: IF A$ = "Q"  THEN  END 
  15. 63920  IF A$ = "M"  THEN  PRINT  CHR$(4);"RUN SHORT MENU"
  16. 63930  IF A$ = "C"  THEN  RUN 
  17. 63940  GOTO 63900